DATA I DENT 


3/15/68 


SYMDEF EQU 


-1 


2PRINT EQU 


-1 


SMAXSYM EQU 


200D 


MAXRL EQU 


150D 


NUM EQU 


MAXSYM- 1 


SMVECSZ EQU 


1+NUM/24D 


$2MVCSZ EQU 


2*MVECSZ 


TEMSTO EQU 


10D 






CAUSES (OR NOT) EXTRA SYMBOLS IN SYMMAC. 
CAUSES DEBUGGING PRINTOUT (OR NOT) 



MAX BIT VECTOR SIZE IN WORDS 



TYPE 



OPD 



17500000B* 1* 1 



♦STORAGE MACRO FOR TABLES. IF SYMDEF IS TRUE* THEN EXTRA SYMBOLS 

* WILL BE DEFINED- THESE SYMBOLS ARE NOT NEEDED* BUT ARE USEFUL 

* FOR DEBUGGING. IT TAKES A WHILE TO GENERATE THEM* AND THE 

* ARPAS SYMBOL TABLE WILL OVERFLOW IF MAXSYM &/OR MAXRUL IS BIG. 
SYMMAC MACRO S* 5/4/68 

3MVCSZ EQU 3*MVECSZ 

LOCAT EQU * 



IF 



SYMDEF 





RPT 


NUM 


EQU 


$L.(SNUM) 


BSS 


SR.(SNUM) 


BSS 




ENDR 


SS0 


EQU 


NUM 


EQU 




RPT 


NUM 


EQU 


SS.(SNUM) 


DATA 


LOCAT 


EQU 




ENDR 




ELSE 




BSS 


SS0 


EQU 


$S1 


EQU 




RPT 




DATA 


LOCAT 


EQU 




ENDR 




ENDF 


NUM 


EQU 




RPT 


NUM 


EQU 


ST.(SNUM) 


ZRO 




ENDR 





MAXSYM 
NUM+1 
MVECSZ 
MVECSZ 

*-l 



MAXSYM 
NUM+1 
LOCAT 



POINTS TO L(NUM) 



L0CAT+2MVCSZ 



MAXSYM*2MVCSZ 

*-l 

* 

NUM+1 

LOCAT POINTS 

L0CAT+2MVCSZ 



TO L SETS 





TEMSTO 

NUM+1 



LOCAT 



EQU 



IF 



SYMDEF 



NUM 


EQU 




RPT 


$EQ.C$NUM> 


BSS 


SLT.CSNUM) 


BSS 


SGT.CSNUM) 


BSS 


NUM 


EQU 




ENDR 


$EQ0 


EQU 


NUM 


EQU 




RPT 


SLOC(SNUM) 


DATA 


LOCAT 


EQU '■ 


NUM 


EQU 




ENDR 



MAXSYM 
MAXSYM 
MVECSZ 
MVECSZ 
MVECSZ 
NUM- I 

* 

MAXSYM 

MAXSYM+ i 

LOCAT POINTS TO EQCNUM) 

L0CAT+3MVCSZ 

NUM-1 



ELSE. 





BSS 


$EQ0 


EQU 




RPT 




DATA 


LOCAT 


EQU 




ENDR 


SLOC0 


EQU 



MAXSYM*3MVCSZ 

* 

MAXSYM+1 

LOCAT POINTS TO EQ SETS 

L0CAT+3MVCSZ 

*-l 



ENDF 

FRGT LOCAT* 3MVCSZ* NUM 

ENDM 
*NOTE: THE LOCATION OF SI & EQ0 ARE USED IN LRSETS TO ZERO CORE!! 
* BE CAREFUL REARANGING THIS STORAGE. 



*THE STORAGE. 




SYMMAC 




SFFUNC BES 


MAXSYM 


SGFUNC BES 


MAXSYM 


SASAVE ZRO 




SBSAVE ZRO 




SXSAVE ZRO 




SI STSYM 


ZRO 


SARROW DATA 


3 


SFLAG ZRO 





SSFLAG ZRO 





SDFLAG ZRO 





STTYFLG ZRO 





SWASTE ZRO 





SRLNUM ZRO 





SRLNMS ZRO 




SSYMNUM ZRO 






THE SIZE OF THE ARROW IN THE RULES 
USED IN LEX* AND SOON ELSEWHERE 

SYMBOL FLAG IN SYNNER* SET -• 

&D FLAG IN INPUT ROUTINES* SET + 

O/I IS WITH TTY* SET + 
WHAT A GARBAGE COLLECTION COULD CLAIM 

THE NUMBER OF THE LAST RULE 

THE LAST SYMBOL DEFINED VIA HASHING 



SSYMNMS ZRO 





SSYMM1 ZRO 




SMSYMNM ZRO 




SAVECM1 ZRO 





SSYMP1 ZRO 





SFILEO ZRO 





SFILEI ZRO 





SOFIL ZRO 





SIFIL ZRO 





IF 


2PRINT 


PFLAG DATA 


-1 


ENDF 




*THE STRING POINTERS 


SOLDLNS BSS 


2 


SSTRPTS ZRO 




SLEXLIN BSS 


2 


SOLDLIN BSS 


2 


SNEWLIN ZRO 





SSTRPTR DATA 


CR)SS-1 


SSTREND DATA 


CR)ESS-1 


TYPE 


STRMSG 


BRU 


SNR5 


STRMSG ASC 


•SSTR. STO 



TO SAVE THE ABOVE IN APPEND 



ACT* SIZE OF BIT VEC - 1 

1 + NUMBER OF SYMBOLS. 

THE FILE OPENED FOR OUTPUT. 

& FOR INPUT. BOTH TTY AT FIRST. 

WORKING FILE NUMBERS. SET TO THE 

FIES ABOVE OR TTY. 



ALSO USED BY COMPLR'S TABLES. 



EXCEEDEDS/ * 



*THE CONTROL TBL 



$CTL DATA 
NUM EQU 
NUM EQU 
NUM EQU 
NUM EQU 
SHASHT BSS 
SEHASHT ZRO 
SS BSS 
ESS ZRO 



HASHT*EHASHT*0 

MAXRL+MAXSYM 

NUM* 5 

NUM/ 3 

NUM*3 

NUM 

4*MAXSYM+4*MAXRL 



SPTBL BSS 
SRULEB BSS 
SRULEE BSS 



2*MAXRL+2 

MAXRL+1 

MAXRL+1 



PJR'S TO THE PDN'S. 

THESE WILL POINT TO THE RULES IN SS. 



♦THE TABLES 



SFFCN 
SGFCN 
SPRTBL 
PI 

P2 

P6 

P7 

Pll 

P12 

P13 

P14 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



FOR THE COMPILER 

0»3i3*b.bl#3*1#0 

0* 1* 1*2* 1*2* 1* 1*0 

0*P1-1*P2-1*0*0*0*P6-1*P7-1*0 

-2*P11-1*P11A*-2*P12-1*P12A*-2*P13-1*P13A 

-2*P14-1*P14A*0 

-2*P21-1*P21A*0 

-2*P61-1*P61A*-2*P62-1*P62A*-1*P63-1*P63A*0 

-1*P71-1*P71A*0 

F*T 

S*T 

LT*T 

B*T 



P21 


DATA 


B*GT 


P61 


DATA 


F*N 


P62 


DATA 


S*N 


P63 


DATA 


N 


P71 


DATA 


S 


S 


EQU 


7 


N 


EQU 


6 


B 


EQU 


5 


F 


EQU 


A 


LT 


EQU 


3 


GT 


EQU 


2 


T 


EQU 


1 



*THE ACTIONS. , 



P11A 


EAX* 


HBEG 




EAX 


3*2 




LDA 


0*2i 




BRM 


HASHER 




LDA 


= S 




BRU 


ACT 


P12A 


BRU 


P11A 


P13A 


LDA 


= B 




BRU 


ACT 


P14A 


BRU 


ACT1 


P21A 


EAX* 


HBEG 




EAX 


1*2 • 




LDA 


0*2 




EAX 


2*2 




LDB 


0*2 




BRM 


HASHNT 




EAX* 


HBEG 




EAX 


1*2 




STA 


0*2 




LDA 


= N 




BRU 


ACT 


P61A 


LDA 


= S 




BRU 


ACT 


P62A 


BRU 


ACT1 


P63A 


EAX* 


HBEG 




EAX 


1*2 




LDA 


0*2 




STA 


1 STSYM 




SKR 


STRPTR 




LDA 


= F 




BRU 


ACT 


P71A 


LDA 


RLNUM 




LSH 


1 




CAX 




v. 


LDP 


NEWLIN 




STP 


PTBL*2 




MUL 


= 3 




LSH 


23 




SUB 


= 1 



HASH THE TERMINAL SYMBOL 



THE LT POINTS TO THE BEG. OF NON-T 



HASH THE NON-T. 



A*B POINT TO THE NON-T. 



THE SYMNUM 



SET UP THE 1ST SYMBOL 



DON'T WANT 1ST SYM IN PDN. 



FINISHED. PUT POINTERS IN PTBL 



THEN HASH THE PDN & EXIT. 



STA 


NEWLIN 


LDA 


STRPTR 


STA 


FLAG 


MUL 


= 3 


LSH 


23 


ADD 


= 2 


STA 


STRPTR 


CAB 




LDA 


NEWLIN 


EAX 


CTL 


BRM 


BRS5 


BRM 


BRS6 


SKE 


> = 


SBRM 


CERROR 


MIN 


FLAG 


STB* 


FLAG , 


LDA 


= 3 


ADM 


STRPTR 


RCH 


22B 


EAX 


2*2 


LDA 


1STSYM 


LSH 


12D 


MRG 


RLNUM 


STA 


0*2 


MIN 


COMPLR 


BRR 


COMPLR 


ACT STA* 


HBEG 


IF 


2PRINT 


ACT1 SKN 


PFLAG 


BRU 


PPRINT 


BRU 


REFLEC 


ELSF 


1 


ACT1 BRU 


REFLEC 


ENDF 




HASHER ZRO 




LDX 


= -1 


STX 


Tl 


CAB 


^ 


SUB 


= 1 


BRU 


HSR1 


HASHNT ZRO 




LDX 


=+1 


STX 


Tl 


LDX 


HASHNT 


STX 


HASHER 


HSR1 EAX 


CTL 


BRM 


BRS5 


BRM 


BRS6 


SKE 


= 0, 


BRU 


HSR2 


MIN 


SYMNUM 


LDA 


SYMNUM 


CBX 




EAX 


2*2 



JUST BORROWING THIS LOC 



THE NEW PDN IS HASHED 
IT WASN f T NEW! 

PUT PTR TO HASHT AFTER PDN 

SET THIS UP FOR APPEND 

CBX .+ CLB 



PUT FISRT SYM. & RLNUM IN HASHT 



A FLAG USED BELOW 
SET UP FOR TERMINAL 

SAME FLAfc 



AN OLD SYMBOL 



STA 0*2 

HSR2 MIN STRPTR 

STA* STRPTR 

SKN T 1 

BRR HASHER 
CAX 

LDA =20000000B 

MRG S0*2 

STA S0* 2 

BRR HASHER 



I.E.* IN THE HASH TBL 

APPENDS THIS SYM TO PDN 
AHA! THE FLAG. 



CERRX ZRO 
CERROR ZRO 
TCO 
ETR 
LDB 
LDX 
BRS 
TYPE 
BRR 
DUPMSG ASC 



AN ERROR (OBVIOUSLY) 



CERRX 

=J52B 

=7777B 

= 10D 

= 1 

36D 

DUPMSG 

CERRX GO BACK AS IF IT NEVER HAPPENED (MAY 21) 

• HAS SAME RHSS/ ' 



DATA 
SNCODE BSS 

DATA 
SASCODE BSS 
SNUMSYM DATA 
SENDSYM DATA 

ENb 



1*2*3*4*5*6*7 



64B* 36B* 34B* 46B* 42B* 56B* 63B 



NCODE-ASCODE-1 

ASCODE-NCODE+1 



